﻿Public Class HomeControl
    Private WithEvents ThayDoiQuiDinh As frmThayDoiQuiDinh
    Private WithEvents PhieuNhapSach As frmPhieuNhapSach
    Private WithEvents HoaDonBanSach As frmHoaDonBanSach
    Private WithEvents DanhSachSach As frmDanhSachSach
    Private WithEvents DanhSachKhachHang As frmDanhSachKhachHang
    Private WithEvents QuanLySach As frmQuanLySach
    Private WithEvents QuanLyTheLoaiSach As frmQuanLyTheLoaiSach
    Private WithEvents PhieuThuTien As frmPhieuThuTien
    Private WithEvents QuanLyKhachHang As frmQuanLyKhachHang
    Private WithEvents ThongTin As frmThongTin
    Private WithEvents BaoCaoCongNo As frmBaoCaoCongNo
    Private WithEvents BaoCaoton As frmBaoCaoTon

    Private Sub biPhieuNhap_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles biPhieuNhap.Click
        PhieuNhapSach = New frmPhieuNhapSach
        PhieuNhapSach.Show()
    End Sub

    Private Sub biHoaDonBanSach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles biHoaDonBanSach.Click
        HoaDonBanSach = New frmHoaDonBanSach
        HoaDonBanSach.Show()
    End Sub

    Private Sub biDanhSachSach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles biDanhSachSach.Click
        DanhSachSach = New frmDanhSachSach
        DanhSachSach.Show()
    End Sub

    Private Sub biQuanLySach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles biQuanLySach.Click
        QuanLySach = New frmQuanLySach
        QuanLySach.Show()
    End Sub

    Private Sub biQuanLyTheLoaiSach_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles biQuanLyTheLoaiSach.Click
        QuanLyTheLoaiSach = New frmQuanLyTheLoaiSach
        QuanLyTheLoaiSach.Show()
    End Sub

    Private Sub biPhieuThuTien_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles biPhieuThuTien.Click
        PhieuThuTien = New frmPhieuThuTien
        PhieuThuTien.Show()
    End Sub

    Private Sub biQuanLyKhachHang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles biQuanLyKhachHang.Click
        QuanLyKhachHang = New frmQuanLyKhachHang
        QuanLyKhachHang.Show()
    End Sub

    Private Sub biDanhSachKhachHang_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles biDanhSachKhachHang.Click
        DanhSachKhachHang = New frmDanhSachKhachHang
        DanhSachKhachHang.Show()
    End Sub
End Class
